home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
util2
/
sutl.zip
/
SAMPLE.BAS
next >
Wrap
BASIC Source File
|
1993-03-01
|
2KB
|
66 lines
100 ' SAMPLE.BAS -- by PS
110 ' (c) 1988 Ziff Communications Co.
120 '
130 PRINT "This creates four screens, in 40-"
140 PRINT "and 80-column text modes, and in"
150 PRINT "320x200 and 640x200 graphics modes."
160 PRINT "Each will pause when it's done."
170 PRINT "Press any key at that point to"
180 PRINT "continue. Use these sample images"
190 PRINT "with CAMERA.COM and CAMLOAD.BAS"
200 PRINT "(Now press any key to start)"
210 WHILE INKEY$="":WEND
220 '
230 ' -- 40TEXT --
240 '
250 KEY OFF:SCREEN 0:WIDTH 40:K=1
260 COLOR 1,0,0:CLS:LOCATE ,,0
270 S$=CHR$(206)
280 A$(1)=CHR$(201)+S$+S$+CHR$(187)
290 A$(2)=S$+CHR$(188)+CHR$(200)+S$
300 A$(3)=S$+CHR$(187)+CHR$(201)+S$
310 A$(4)=CHR$(200)+S$+S$+CHR$(188)
320 FOR A=1 TO 21 STEP 4
330 FOR B=1 TO 36 STEP 4
340 FOR C=1 TO 4
350 LOCATE C+A-1,B+2:PRINT A$(C);
360 NEXT:COLOR K MOD 6+1:K=K+1
370 NEXT:NEXT:LOCATE 1
380 WHILE INKEY$="":WEND
390 '
400 ' -- 80TEXT --
410 '
420 WIDTH 80:COLOR 1,0,0:CLS
430 A$=CHR$(176):B$=CHR$(177)
440 C$=CHR$(178):D$=CHR$(219)
450 FOR A=1 TO 23
460 COLOR A MOD 6+1,A MOD 5+2
470 FOR B=1 TO 10
480 PRINT A$+B$+C$+D$+C$+B$+A$+A$;
490 NEXT:NEXT:LOCATE 1
500 WHILE INKEY$="":WEND
510 '
520 ' -- MEDRES --
530 '
540 SCREEN 1:COLOR 1,0:CLS
550 FOR E=1 TO 75
560 A=RND*300+7:B=RND*130+12:C=RND*5+5
570 FOR F=1 TO C STEP 2
580 LINE (A,199)-(A,B)
590 CIRCLE (A,B),F,(F MOD 3)+1
600 CIRCLE (A+1,B-1),F,(F MOD 3)+1
610 NEXT:NEXT
620 WHILE INKEY$="":WEND
630 '
640 ' -- HIRES --
650 '
660 SCREEN 2:CLS
670 FOR A=200 TO 1 STEP -2
680 LINE (0,A)-(639,A):NEXT
690 FOR E=1 TO 150
700 A=RND*600+1:B=RND*180+1:C=RND*20+5
710 LINE (A,B)-(A+C,B+C),0,BF
720 LINE (A+4,B+1)-(A+C+4,B+C+1),,BF
730 NEXT
740 WHILE INKEY$="":WEND